home *** CD-ROM | disk | FTP | other *** search
- <?php
- /*
- ** $Id: distributionlists_recipients_delete.php,v 1.3 2005/01/05 22:22:50 hmailserver Exp $
- **
- ** hMailServer - Web interface
- **
- ** File formatted using TAB size 4
- **
- ** Get hMailserver at http://www.hmailserver.com
- **
- ** Author: Steen Rab°l <srabol@mail.tele.dk>
- ** Copyright (c) 2004, Steen Rab°l <srabol@mail.tele.dk>
- **
- ** This program is free software; you can redistribute it and/or modify
- ** it under the terms of the GNU General Public License as published by
- ** the Free Software Foundation; either version 2 of the License, or
- ** (at your option) any later version.
- **
- ** You may not change or alter any portion of this comment or credits
- ** of supporting developers from this source code or any supporting
- ** source code which is considered copyrighted (c) material of the
- ** original comment or credit authors.
- **
- ** This program is distributed in the hope that it will be useful,
- ** but WITHOUT ANY WARRANTY; without even the implied warranty of
- ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- ** GNU General Public License for more details.
- **
- ** You should have received a copy of the GNU General Public License
- ** along with this program; if not, write to the Free Software
- ** Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- **
- */
-
- $DomainID = hmailGetVar("DomainID",null);
- $DistributionlistID = hmailGetVar("DistributionlistID",0);
- $RecipientID = hmailGetVar("RecipientID",0);
- $function = hmailGetVar("function","");
-
- if (hmailGetAdminLevel() == 0)
- hmailHackingAttemp(); // Users are not allowed to show this page.
-
- if (hmailGetAdminLevel() == 1 && $DomainID != hmailGetDomainID())
- hmailHackingAttemp(); // Domain admin but not for this domain.
-
- $obDomain = $obBaseApp->Domains->ItemByDBID($DomainID);
- $obDistributionlists = $obDomain->DistributionLists();
- $obDistributionlist = $obDistributionlists->ItemByDBID($DistributionlistID);
- $obRecipients = $obDistributionlist->Recipients();
- $obRecipient = $obRecipients->ItemByDBID($RecipientID);
-
- switch($function)
- {
- case "dodelete":
- $obRecipients->DeleteByDBID($RecipientID);
- header("refresh: 0; url=index.php?page=distributionlists_recipients&DomainID=$DomainID&DistributionlistID=$DistributionlistID");
- exit();
- break;
-
- default:
- $hmailSmarty->assign("recipient",$obRecipient);
- $hmailSmarty->assign("distributionlist",$obDistributionlist);
- $hmailSmarty->assign("domain",$obDomain);
- $hmailSmarty->assign("pagecontent", $hmailSmarty->fetch('distributionlists_recipients_delete.tpl'));
- break;
- }
- ?>